Info-Mac 4/Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso/Development/General/MacMETH3.2.1 Folder/MacMETH3.2.1 Disk 1⁄2/Examples/XYplane.MOD

Text File | 1994-03-21 | 583b | 29 lines

IMPLEMENTATION MODULE XYplane;

IMPORT GraphicWindows, TerminalIn;

  VAR v: GraphicWindows.Window;

  PROCEDURE Open;
  BEGIN GraphicWindows.OpenGraphicWindow(v,50,20,570,770,"XYplane",GraphicWindows.Clear)
  END Open;

  PROCEDURE Clear;
  BEGIN GraphicWindows.Clear(v)
  END Clear;

  PROCEDURE Dot(x,y: INTEGER; mode: INTEGER);
  BEGIN GraphicWindows.Dot(v,x,y)
  END Dot;

  PROCEDURE IsDot(x, y: INTEGER): BOOLEAN;
  BEGIN HALT (* not implemented *)
  END IsDot;

  PROCEDURE Key(): CHAR;
  VAR ch: CHAR;
  BEGIN    TerminalIn.BusyRead(ch); RETURN ch
  END Key;

END XYplane.